home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Gold Collection / Software Vault - The Gold Collection (American Databankers) (1993).ISO / cdr50 / angel19.zip / PTRREC.DEF < prev    next >
Text File  |  1993-04-12  |  3KB  |  75 lines
  1. TYPE LaserPtrRec
  2.     Model AS STRING * 30                    '    } First five items are
  3.     Code AS STRING * 6                      '    } the same for laser as
  4.     Init AS STRING * 15                     '    } well as dot matrix ptrs
  5.     ULon AS STRING * 5                      '    &d0D
  6.     ULoff AS STRING * 5                     '    &d@
  7.     Portrait AS STRING * 5
  8.     Landscape AS STRING * 5
  9.     Envelope AS STRING * 6
  10.     ManualFeed AS STRING * 5
  11.     HTab AS STRING * 5                           '(27) &a#H
  12.     VTab AS STRING * 5                           '(27) &a#V
  13.     Spare AS STRING * 16
  14.     END TYPE
  15.  
  16. TYPE LaserFontRec
  17.     PtrCode AS STRING * 6
  18.     Name AS STRING * 35
  19.     Scalable AS INTEGER
  20.     Orientation AS STRING * 1                    'P or L or B (both)
  21.     SymSet1 AS STRING * 4                        'Esc (##U
  22.     SymSet2 AS STRING * 4                        'Esc )##U
  23.     Select1 AS STRING * 3                        'Esc (s
  24.     Select2 AS STRING * 3                        'Esc )s
  25.     Spacing AS STRING * 2                        'Fixed (0p) or Prop (1p)
  26.     Pitch AS STRING * 6                          '####v or ####h
  27.     Slant AS STRING * 2                          '0s or 1s (italic)
  28.     Weight AS STRING * 2                         '0b etc.
  29.     Number AS STRING * 5                         '####T or ##T
  30.     Spare AS STRING * 33
  31.     END TYPE
  32.  
  33. TYPE DMPtrRec
  34.     Model AS STRING * 30                    '    } First five items are
  35.     Code AS STRING * 6                      '    }
  36.     Init AS STRING * 15                     '    }  the same for laser as
  37.     ULon AS STRING * 3                      '    }
  38.     ULoff AS STRING * 3                     '    }  well as dot matrix ptrs
  39.     BoldOn AS STRING * 2
  40.     BoldOff AS STRING * 2
  41.     Width AS INTEGER                        '    Carriage width, 10 or 15
  42.     LM AS STRING * 5
  43.     HTab AS STRING * 4
  44.     HalfLF AS STRING * 4
  45.     WideOn AS STRING * 3
  46.     WideOff AS STRING * 3
  47.     Scale AS STRING * 6                          'Set pitch for scalable fonts
  48.     PSon AS STRING * 3                           'Proportional spacing on
  49.     PSoff AS STRING * 3                          'Proportional spacing off
  50.     Draft AS STRING * 3
  51.     LQ AS STRING * 3
  52.     Spare AS STRING * 8
  53.     END TYPE
  54.  
  55. TYPE DMFontRec
  56.     PtrCode AS STRING * 6
  57.     Name AS STRING * 35
  58.     CPI AS INTEGER                               '0=proportional, -1=scalable
  59.     Pts AS SINGLE                                'Pt size, for prop spaced
  60.     LPI AS INTEGER                               'Lines/inch
  61.     Select AS STRING * 16
  62.     Spare AS STRING * 43
  63.     END TYPE
  64.  
  65. 'Idea: Set up var to use Epson/IBM print mode combination tables, thus:
  66. 'PrintModeCombos ── 0 = Not avail.
  67. '                   1 = Epson style
  68. '                   2 = IBM style
  69.  
  70. ' Dan Healy:
  71. ' For what it does ... paid $85 for Avery LabelPro, WML is comparable!
  72. ' Theirs does a little more but WML is 'up there'
  73. ' Type in Zip & have it find it
  74.  
  75.